home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagd_f.zip
/
EGAVGA.SWG
/
0061_50 Line mode.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-11-02
|
419b
|
21 lines
{
SEAN PALMER
> Yeah, I almost think I learned assembly just to reProgram the Crt
> Unit! (except I can't seem to find out how to get to 50-line mode With
> assembly)
}
Procedure set50LineMode; Assembler;
Asm
mov ax, $1202
mov bl, $30
int $10 {set 400 scan lines}
mov ax, 3
int $10 {set Text mode}
mov ax, $1112
mov bl, 0
int $10 {load 8x8 font to page 0 block}
end;